﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
%>
	<card title="用户管理"><p align="left">
<%
	dim rs,sql,page,id


    		Page = Request("page")      '当前页数
    		If Page = "" Then Page = 1
   		If Not IsNumeric(Page) Then Page = 1
    		Page = CLng(Page)
    		If Page < 1 Then Page = 1
    		id = Request("id")    
    		If id = "" Then id = 1
   		If Not IsNumeric(id) Then id = 1
    		id = CLng(id)
    		If id < 1 Then id = 1
	Set Rs = Server.CreateObject("Adodb.Recordset")
        Sql = "SELECT * from qingtian_user where id="&id&" order by id desc"
		Rs.Open Sql,conn,1,3
		if not (rs.bof and rs.eof)  then
if Request.QueryString("act")=1 then rs("touxian")=""
if Request.QueryString("act")=2 then rs("xunzhan")=""
rs.update 
			%>用户名：<%=qingtian.utf8(rs("user"))%><br/><img src="<%=rs("touxian")%>" alt="我的头像" noselect = "true"/><a href='userr.asp?act=1&amp;id=<%=id%>&amp;sid=<%=sid%>'>清空头像</a><br/>勋章：<%=rs("xunzhan")%><a href='userr.asp?act=2&amp;id=<%=id%>&amp;sid=<%=sid%>'>清空勋章</a><br/>昵称：<%=qingtian.utf8(rs("name"))%><br/>性别：<%=rs("xingbie")%><br/>积分：<%=rs("zf")%><br/><%=qingtian.bit%>：<%=rs("money1")%><br/><%=qingtian.bi%>：<%=rs("money")%><br/>魅力值：<%=rs("meili")%><br/>体力值：<%=rs("tili")%><br/>人气：<%=rs("renqi")%><br/>年龄：<%=rs("nianlin")%><br/>地区：<%=rs("diqu")%><br/>签名：<%=rs("mark")%><br/>邮箱：<%=rs("mail")%><br/>Q Q：<%=rs("qq")%><br/>会员类型：<%=qingtian.vip(rs("id"))%><br/>手机号码：<%=rs("mobile")%><br/>注册时间:<%=rs("shengri")%><br/>
最近访问:<%=rs("onlinetime")%><br/><%
                else
Response.Write("暂无用户！<br/>")

		end if
		Rs.close			
	set rs=nothing
Response.Write("<a href='user.asp?Page=" & Page & "&amp;sid=" & sid & "'>返回上级</a><br/>")
   		Response.Write("<a href='index.asp?sid=" & sid & "'>管理首页</a><br/>")
end Function
%>
